home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -websites- / wirenet / files / thor25_arexx.lha / FSE / Unquote.fse < prev   
Text File  |  1995-09-06  |  504b  |  29 lines
  1. /* unqoute.fse - reduce the layer of qoute chars (">") in a block of text
  2. ** to just one level.
  3. */
  4.  
  5. options results
  6.  
  7. YPOS
  8. currline = result
  9. XPOS
  10. currcolumn = result
  11. MSGLENGTH
  12. lastline = result
  13.  
  14. do i=currline to lastline
  15.         SETPOS 1 i
  16.         GETLINE
  17.         line = result
  18.         if(line ~= "") then do
  19.                 DELETELINES
  20.                 NEWLINE
  21.                 SETPOS 1 i
  22.                 INSERTINPUT ">"||strip(line, L, ">")
  23.         end
  24.         else break
  25. end
  26.  
  27. SETPOS currcolumn currline
  28.  
  29.